home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 60.zip / BS1 part 60 / Mega Fortress d1.adf / Install-Mega next >
Text File  |  1992-09-10  |  3KB  |  124 lines
  1. ;
  2. ;    Megafortress Installation Script
  3. ;    by Steve Tibbett
  4. ;
  5. ;    This will get the destination directory from the user,
  6. ;    then copy the files from the distribution disks to the
  7. ;    destination directory, making the theater directory
  8. ;    in the process.
  9. ;
  10.  
  11. (user 2)
  12.  
  13. (welcome "Thank you for purchasing Megafortress!\n")
  14.  
  15. (transcript "On installing Megafortress...")
  16.  
  17. (set DestDir
  18.     (askdir
  19.         (prompt "On what drive should Megafortress be installed?")
  20.         (help     (cat    "Megafortress will be installed on the device you name.  "
  21.                 "That device will need approximately 1 megabyte of free space.  "
  22.                 "A \"Mega\" directory will be created on that drive, and "
  23.                 "Megafortress will be installed in this directory.\n\n"
  24.                 @askdir-help))
  25.         (default "RAM:")
  26.         (disk)
  27.     )
  28. )
  29.  
  30. (set    @default-dest DestDir)
  31.  
  32. (set MegaDir (tackon DestDir "Mega"))
  33.  
  34. (makedir MegaDir
  35.     (prompt "I will now create the directory " MegaDir ", including a drawer icon for it.")
  36.     (help @makedir-help)
  37.     (infos)
  38. )
  39.  
  40. (askdisk
  41.     (dest "Megafortress-Disk-One")
  42.     (help "The Megafortress program, and the theaters, are on the first disk.  Thus, I need it.\n\n"
  43.           @askdisk-help)
  44.     (prompt "Please insert Megafortress Disk One in any drive.")
  45.     (newname "DiskOne")
  46. )
  47.  
  48. (copyfiles
  49.     (prompt "Copying the Megafortress Program to \"" MegaDir "\".")
  50.     (help @copyfiles-help)
  51.     (source "DiskOne:")
  52.     (dest MegaDir)
  53.     (pattern "Mega")
  54.     (files)
  55.     (infos)
  56. )
  57.  
  58. (copyfiles
  59.     (prompt "Copying the Megafortress Music to \"" MegaDir "\".")
  60.     (help @copyfiles-help)
  61.     (source "DiskOne:")
  62.     (dest MegaDir)
  63.     (pattern "Mega.Mod")
  64.     (files)
  65. )
  66.  
  67. (set ToInstall
  68.     (askoptions
  69.         (prompt "What Theaters would you like installed?")
  70.         (help    @askoptions-help)
  71.         (choices "Libya" "Iran")
  72.         (default 3)
  73.     )
  74. )
  75.  
  76. (set TheaterDir (TackOn MegaDir "Theater"))
  77. (makedir TheaterDir
  78.     (prompt "Creating the directory " TheaterDir ", including a drawer icon for it.  "
  79.         "This will contain the Megafortress Theaters.")
  80.     (help @makedir-help)
  81.     (infos)
  82. )
  83.  
  84. (if    (bitand    1 ToInstall)
  85.     (copyfiles
  86.         (prompt "Copying the Libya Theater to \"" TheaterDir "\".")
  87.         (help @copyfiles-help)
  88.         (source (tackon "DiskOne:" "Theater"))
  89.         (dest TheaterDir)
  90.         (pattern "(Libya#?|LBM#?)")
  91.         (files)
  92.     )
  93. )
  94.  
  95. (if    (bitand    2 ToInstall)
  96.     (copyfiles
  97.         (prompt "Copying the Iran Theater to \"" TheaterDir "\".")
  98.         (help @copyfiles-help)
  99.         (source (tackon "DiskOne:" "Theater"))
  100.         (dest TheaterDir)
  101.         (pattern "(Iran#?|IRM#?)")
  102.         (files)
  103.     )
  104. )
  105.  
  106. (askdisk
  107.     (dest "Megafortress-Disk-Two")
  108.     (help "The Megafortress data file, including all the graphics "
  109.           "and sound, is on the second disk.  Thus, I need it.\n\n"
  110.           @askdisk-help)
  111.     (prompt "Please insert Megafortress Disk Two in any drive.")
  112.     (newname "DiskTwo")
  113. )
  114.  
  115. (copyfiles
  116.     (prompt "Copying the Megafortress Data File to \"" MegaDir "\".")
  117.     (help @copyfiles-help)
  118.     (source "DiskTwo:")
  119.     (dest MegaDir)
  120.     (pattern "Mega.Dat")
  121.     (files)
  122. )
  123.  
  124.